1 REM  BBS NAMES START AT LINE# 816 2 REM  PHONE #'S START AT LINE# 921 3 REM  QL$ IS ID/PASSWORD REMINDER 4 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB8000 5 PRINT"[147]":POKE999,1:IFPEEK(828)<>169THENPRINT" SETTING UP...":GOSUB9900 6 POKE665,5:POKE666,13:POKE1014,104:POKE1015,104:POKE1016,76:POKE1017,126 7 POKE1018,166:IFPEEK(22784)=76THEN51 11 POKE53281,11:PRINT"[147] MEGA VERSA-TERM ":PRINT"VERSION 4.6 / 10 FEB 85" 16 PRINT"ORIGINALLY BY STEVE PUNTER." 21 PRINT"CONVERTED TO C64 BY KEITH PETERSON." 26 PRINT"[158]MODIFIED AND ENHANCED BY:":PRINT"EARL GOLDBERG AND RICH BUCHANAN, [155] 27 [153]"LISTTHE KANSAS CITY COMMODORE USERS' GROUP." 28 [153]"ADDITIONS BY JONATHAN ROGERS" 31 [129]AX[178]1[164]1000:[130]AX:[137]46 36 [137]181 46 [153]"OPENLOADING MACHINE LANGUAGE SUBROUTINES..." 51 [151]24816,6:[151]24817,0:[143] 300BAUD 8BIT NO PARITY 56 [151]53280,0 :[151]646,7:[151]53281, 0 61 [139][194](22784)[179][177]76[167][147]"AVT.ML2",8,1 66 [139][194](49152)[179][177]169[167][147]"AVT.ML1",8,1 81 R%[178]5:MO%[178]6:SE$[178]"":ML[178]22784 86 [151]56,86:[151]644,86:[156]:[159]5,2,0,[199]([194](24816))[170][199]([194](24817)) 91 [151]665,5:[151]666,13:RE$[178]" ":SE$[178]" ":MO%[178]134:R%[178]0:C$[178]"0123456789ABCDEF" 96 RP[178]2:RS[178]0:WP[178]RP:WS[178]RS 101 BS[178]255:TP$[178]"(null)LD 7 PEEKIT (null)ROTOCOL":TY[178]0 106 [151]24575,RP:[151]24574,RS[170]96:[151]24573,WP:[151]24572,WS[170]96 111 PA(0)[178]10:PA(1)[178]6:PA(2)[178]2 116 ML[178]22784:[153][199](14):[151]24569,0 121 [159]1,8,15:[151]556,0:[151]552,0:[151]553,1 122 [139][194](999)[178]1[167][151]999,0:DN$[178]"":[137]1356 126 DN$[178]"":[137]136 131 [161]#5,A$,A$:[139]FF[178]1[167][141]1056 133 [158]ML:[160]11:[151]24569,0:TM[178]0 136 [151]198,0:[151]53280,6:[153]"LOADCONT =*=(null)EGA (null)ERSA-(null)ERM 4.6 (null)ATNRIGHT$(null) (null)VAL(null)(null)=*= " 137 SC[178]1014 141 [153]" 1 > (null)ERMINAL (null)ODE":[153]" 2 >CLR (null)RANSMIT (null)ROGRAM " 146 [153]" 3 >CLR (null)ECEIVE (null)ROGRAM" 151 [153]" 4 > STR$ISK LENOMMANDS" 156 [153]" 5 >DEF ATNUTODIAL" 161 [153]" 6 >PRINT# (null)OGGLE (null)UNTER (null)ROTOCOLS" 163 [139]TY[178]1[167][153]" 7 >OPEN LENHANGE PEEKLOCK-(null)RANSMIT (null)IZE" 165 [153]" 8 > CHR$RAPHICS (null)ERMINAL (null)ODE" 166 [153]" 9 > (null)(null)RIGHT$(null)" 171 [153]" SYS (null)ETURN TO (null)VAL(null)(null)" 172 [153]" PEEK > LENHECK PEEKELL (null)OLUME" 173 [153]" LEN >OPEN (null)ESET LENLOCK 176 PRINT"[159] [208]UNTER VERSION : "TP$ 178 IFTY=1THENPRINT"[159] [194]LOCK SIZE ="BS"[157] " 181 SYSSC:GETA$ 186 IFA$=""THEN181 187 IFA$="B"THEN198 188 IFA$="C"THEN 7100 191 ONVAL(A$)GOTO201,391,216,1081,576,1351,1451,7000,496 196 GOTO181 198 FF=1:GOSUB1056:POKE198,0:GOTO181 201 PRINT"[147] [212]ERMINAL [205]ODE " 211 GOTO1471 216 PRINT"[147]  [208]UNTER [196]OWNLOADING [205]ODE [146]":PRINT" [180]"TP$"[170]" 221 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[206]AME OF [198]ILE FOR [196]ISK?" 226 PRINT" [195]AUTION: [193]UTO [211]AVE W/ [210]EPLACE [146]":IFTY=1THEN1426 231 PRINT"> ";:GOSUB516:S$=B$ 236 IFS$=""THENPRINT#5,"[193]";:GOTO1471 241 S$="@0:"+S$ 246 GOSUB346:S$=S$+T$+",W" 251 CLOSE2:OPEN2,8,2,S$:GOSUB551:IFES THENPRINT:PRINT""ES$"":CLOSE2:GOTO216 253 PRINT"[147][156][210][197][195][197][201][214][201][206][199][146] "B$"":GOSUB11000 256 PRINT#5,"TTTTTTTTTTTTTTTTTTTTTTT"; 261 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN261 266 SYSML+18:SS=ST:IFSS THEN291 271 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN271 276 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12 281 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN296 286 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO261 291 CLOSE2:PRINT#5,"SSSSSSSSSSSSSSSSSSSSS";:PRINT:PRINT"[156] [196][207][206][197] ":FF=1:GOTO1471 296 PRINT#5,"";:PRINT":";:GOTO261 301 PRINT"[212]YPE OF [198]ILE:" 306 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT"> "; 311 GETB$:IFB$=""THEN311 316 TY$=B$:FL=0 321 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":FORX=1TO900:NEXTX:RETURN 326 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":FORX=1TO900:NEXTX:RETURN 331 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":FORX=1TO900:NEXTX:RETURN 336 IFB$=CHR$(13)THENFL=1:RETURN 341 GOTO311 346 PRINT#5,"UUUUUUUUUUUUUUUUUUUUUUUUU"; 351 GET#5,A$:IFST<>0THEN351 356 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO376 361 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO376 366 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO376 371 GOTO351 376 PRINT"[198]ILE [212]YPE: "A$"" 381 GET#5,A$:IFST=0THEN381 386 RETURN 391 PRINT"[147] [208]UNTER [213]PLOADING [205]ODE [146]":PRINT" [165]"TP$"[167]" 393 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFTY=1THEN1376 396 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT"> ";:GOSUB516:S$=B$:IFS$=CHR$(13)THENS$="" 401 IFS$=""THENPRINT#5,"[193]";:GOTO1471 406 GOSUB301:IFFLTHENS$="":GOTO401 408 PRINT"[147][156][212][210][193][206][211][205][201][212][212][201][206][199][146] "S$"":GOSUB11000 411 CLOSE2:OPEN2,8,2,S$+T$:GOSUB551:IFESTHENPRINT""ES$"":CLOSE2:GOTO396 416 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT 421 GET#5,A$:IFST<>0ORA$<>"U"THEN421 426 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN426 431 SYSML+9:CK=ST 436 FORX=1TO400:NEXT 441 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN441 446 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT 451 PRINT#5,"ZZZZZZZZZZZZZZZZZZZZZZZZZZ"; 456 IFPEEK(669)<>PEEK(670)THEN456 461 GET#5,A$:IFST<>0THEN461 466 IFA$=""THENPRINT":";:GOTO436 471 IFA$<>""THEN461 476 IFCK=0THENPRINT"-";:GOTO426 481 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN481 486 PRINT:PRINT"[156] [196][207][206][197][160]":FF=1:CLOSE2:GOTO1471 491 SYSML+21:A$=CHR$(PEEK(634)):RETURN 496 IFTY=0THENPRINT:PRINT 498 PRINT"[209][213][201][212]? [193][210][197] [217][207][213] [211][213][210][197][146]? (Y/N)"; 501 GETZ$:IFZ$="N"THEN136 506 IFZ$="Y"THENCLOSE5:CLOSE1:CLOSE2:CLOSE11:GOTO1306 511 GOTO501 516 PRINT" [146][157]";:B$="" 521 GETA$:IFA$=""ORA$=""ORA$="[147]"THEN521 523 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN521 524 IFA$=" "THENIFLEN(B$)=0THEN521 526 IFA$=CHR$(20)THEN541 531 IFA$=CHR$(13)THENPRINT" ":RETURN 536 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO521 541 IFLEN(B$)=0THEN521 546 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO521 551 REM GET ERROR CHANNEL 556 INPUT#1,E1$,E2$,E3$,E4$ 561 ES$=E1$+","+E2$+","+E3$+","+E4$ 566 ES=VAL(E1$):RETURN 571 POKE22784,0:RUN 576 B1=56577:B2=56579:IF(PEEK(B1)AND16)<>0THEN651 578 PRINT" [217]OU ARE CURRENTLY [207][206]-[204][201][206][197]!":GOSUB10000:POKE198,0:GOTO181 651 POKEB2,32:POKEB1,0 656 PRINT"[147][149] -- [194]ULLETIN [194]OARD [196]IRECTORY -- [146]":GOSUB816:SYSSC 657 PRINT"[156][217]OUR CHOICE":GOSUB891 661 PRINT"[145][205]OVE [212]-[196] SWITCH TO [196][193][212][193][146] ":FORK=1TO1000:NEXTK:GOTO676 666 D$="":PRINT"[145][197]NTER NUMBER TO DIAL > [157][157][157][157][157]";:INPUTD$:IFLEN(D$)<7THEN656 671 RETURN 676 POKEB1,32:T=100 681 IFZY$<>"[136]"ANDZY$<>""THENT=T-1:GETZY$:IFT<>0THEN681 682 IFZY$="[136]"THENZY$="":GOTO651 683 IFZY$=""THENZY$="":POKEB1,0:GOTO136 686 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):IFN$CHR$(57)THENII=1 691 PRINT"[129]"N$"[146]";:N=VAL(N$):IFN=0THENN=10:IFII=1THENII=0:NEXTX:GOTO651 696 GOSUB721:NEXTX 701 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB 706 PRINT"[152][212]RY #"NT:GOTO771 711 PRINT" [195][207][206][206][197][195][212][197][196]....GOING TO [212][197][210][205][201][206][193][204] [205][207][196][197]":PRINTQL$:SYS49173:GOTO1471 721 FORN1=1TON 726 POKEB1,0 731 T=3 736 T=T-1:IFT<>0THEN736 741 POKEB1,32:T=3 746 T=T-1:IFT<>0THEN746 751 NEXTN1:T=15 756 T=T-1:IFT<>0THEN756 761 RETURN 766 END 771 PRINT" [156]([208]RESS <[198]7> TO CHOOSE A NEW NUMBER)":CT=0:DC=0:BU=0:SI=0:SYSSC 773 IFLEN(D$)>8THENSI=-100 776 PRINT"[215]HEN CONNECTION IS MADE, BELL WILL SOUNDBEFORE GOING TO [212]ERMINAL"; 778 PRINT" MODE.":POKE198,0 781 PRINT" ---=[ [208]RESS[159] <[195]LR/[200]OME> FOR [205]ENU ]=----";:NP=0:FOR ZZ= 450TO0STEP-1 786 GETA$:IFA$="[136]"THENA$="":ZZ=-1:GOTO651 791 X=PEEK(B1):X=XAND16:GOSUB1311 796 IFA$=CHR$(19)THENPOKEB1,0:A$="":GOTO136 798 IFBU>3ANDDC=0ANDCT=0THENBU=0:ZZ=-1:GOTO806 801 NEXTZZ 806 POKEB1,0:FORZY=1TO200:NEXTZY:PRINT"[145][145][145][145][145][145][145][145][145][158] ###### [195]ONTINUOUS [196]IALING [205]ODE"; 811 PRINT" #######":PRINT" [157][157][157][157][157][157][157][157][157][157][157][157][157][157]"; 812 FORZY=1TO150:GETZY$:IFZY$<>"[136]"ANDZY$<>""THENNEXT 813 IFZY$="[136]"THENZY$="":ZY=51:POKEB1,0:GOTO651 814 IFZY$=""THENZY$="":ZY=51:POKEB1,0:GOTO136 815 GOTO676 816 PRINT"[145]"; 817 REM-DON'T CHANGE POSITION OF QUOTES! =============================== 818 PRINT" <1>[200][193][204] #1 "; 819 PRINT" <2>[195][207][205][208][213][211][197][210][214][197] "; 820 PRINT" <3>[195][207][205][211][208][197][195] "; 821 PRINT" <4>[212][208][213][199] "; 825 PRINT" <5>[195][207][205][211][208][197][195] [201][201] "; 826 PRINT" <6>[193][205][197][216] [195][207][210][208]. "; 829 PRINT" <7>[194][213][199] [194][207][193][210][196] "; 831 PRINT" <8>[195][205][194][194][211] "; 832 PRINT" <9>[213][211][197][210]*[208][207][210][212] "; 836 PRINT"<10>[195][213][199][207][210] [195][205][194][194][211] "; 837 PRINT"<11>[195][207][205][205][207][196][207][210][197] [205][193][199][201][195] "; 841 PRINT"<12>[208][213][206][212][197][210] [208][211][201] "; 842 PRINT"<13>[194][194][194][194][211]-8661 "; 846 PRINT"<14>[194][194][194][194][211]-5833 "; 847 PRINT"<15>[194][194][194][194][211]-9047 "; 851 PRINT"<16>[194][194][194][194][211]-9991 "; 852 PRINT"<17>[214][207][201][196] [194][194][211] "; 856 PRINT"<18>- - - - - - - - "; 857 PRINT"<19>- - - - - - - - "; 861 PRINT"<20>- - - - - - - - "; 862 PRINT"<21>- - - - - - - - "; 871 PRINT"<22>- - - - - - - - "; 872 PRINT"<23>- - - - - - - - "; 876 PRINT"<24>- - - - - - - - "; 881 PRINT"[149] [146][159] <99> [207]THER [149] " 886 RETURN 891 NT=0 896 PRINT""; 901 A$="":INPUTA$:IFVAL(A$)>99THEN651 902 QL$="":IFVAL(A$)=99THEN666 903 IFVAL(A$)<1THEN136 904 IFLEN(A$)>2THEN651 906 ONVAL(A$)GOTO921,926,931,936,941,946,951,956,961,966,971,976,981,986,991 911 A=VAL(A$)-15 916 ONAGOTO996,1001,1006,1011,1016,1021,1026,1031,1036,1041,1046 917 GOTO651 920 REM ########## BBS #1 ############# 921 D$="1-816-931-7425" 922 QL$="":RETURN 925 REM ########## BBS #2 ############# 926 D$="366-1869" 927 QL$="":RETURN 930 REM ########## BBS #3 ############# 931 D$="633-0185" 932 QL$="":RETURN 935 REM ########## BBS #4 ############# 936 D$="782-9534" 937 QL$="":RETURN 940 REM ########## BBS #5 ############# 941 D$="633-4262" 942 QL$="":RETURN 945 REM ########## BBS #6 ############# 946 D$="1-877-0280" 947 QL$="":RETURN 950 REM ########## BBS #7 ############# 951 D$="454-5330" 952 QL$="":RETURN 955 REM ########## BBS #8 ############# 956 D$="1-301-251-0599" 957 QL$="":RETURN 960 REM ########## BBS #9 ############# 961 D$="1-817-293-6331" 962 QL$="":RETURN 965 REM ########## BBS #10 ############ 966 D$="1-716-334-7052" 967 QL$="":RETURN 970 REM ########## BBS #11 ############ 971 D$="1-716-633-7731" 972 QL$="":RETURN 975 REM ########## BBS #12 ############ 976 D$="624-5431" 977 QL$="":RETURN 980 REM ########## BBS #13 ############ 981 D$="481-8661" 982 QL$="":RETURN 985 REM ########## BBS #14 ############ 986 D$="487-5833" 987 QL$="":RETURN 990 REM ########## BBS #15 ############ 991 D$="481-9047" 992 QL$="":RETURN 995 REM ########## BBS #16 ############ 996 D$="277-9991" 997 QL$="":RETURN 1000 REM ########## BBS #17 ########### 1001 D$="759-3485" 1002 QL$="":RETURN 1005 REM ########## BBS #18 ########### 1006 D$="**************" 1007 QL$="":RETURN 1010 REM ########## BBS #19 ########### 1011 D$="**************" 1012 QL$="":RETURN 1015 REM ########## BBS #20 ########### 1016 D$="**************" 1017 QL$="":RETURN 1020 REM ########## BBS #21 ########### 1021 D$="**************" 1022 QL$="":RETURN 1025 REM ########## BBS #22 ########### 1026 D$="**************" 1027 QL$="":RETURN 1030 REM ########## BBS #23 ########### 1031 D$="**************" 1032 QL$="":RETURN 1035 REM ########## BBS #24 ########### 1036 D$="**************" 1037 QL$="":RETURN 1040 REM ########## BBS #25 ########### 1041 D$="**************" 1042 QL$="":RETURN 1045 REM ########## BBS #26 ########### 1046 D$="**************" 1047 QL$="":RETURN 1056 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15 1061 FORP=1TO7:POKES+4,29:FORT=1TO200:NEXT:POKES+4,20:NEXT 1066 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT 1068 IF FF=1THENFF=0:RETURN 1071 POKE198,1:POKE631,13 1076 PRINT"[147]";:GOTO711 1081 CLOSE15:OPEN15,8,15:PRINT"[147]":GOTO1241 1086 PRINT"[147][159] <[211][208][193][195][197][194][193][210] TO STOP/CONTINUE>":SYS828:OPEN1,8,15 1171 IFFG=1THENPRINT"[145][145]":FG=0 1172 PRINTTAB(8)"[156][208]RESS ANY KEY TO CONTINUE" 1176 GET A$:IFA$=""THEN1176 1181 GOTO1241 1186 IFT$="M"THENCLOSE7:CLOSE6:GOTO136 1191 GETT$:IFT$=""GOTO1186 1196 RETURN 1201 REM DISK COMMANDS 1206 C$="":PRINT"[145]> [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"; 1211 GETB$:IFB$=""THEN1211 1216 PRINTB$;:IFB$=CHR$(13)THEN1226 1221 C$=C$+B$:GOTO1211 1226 PRINT#15,C$ 1231 PRINT"[145]"; 1236 INPUT#15,A$,B$,C$,D$:PRINT" "A$","B$","C$","D$" ":GOTO1171 1241 PRINT"[147] [158] ******* [196]ISK [195]OMMANDS ******* [146]":PRINT 1246 PRINT" [196] - [196]IRECTORY" 1251 PRINT" [194] - [194]LOCKS [198]REE" 1256 PRINT" [211] - [196]ISK [211]TATUS" 1261 PRINT" > - [196]ISK [195]OMMAND" 1266 PRINT" [205] - [210]ETURN TO [205]AIN [205]ENU":POKE198,0 1268 FORX=1TO6:PRINT" ";MID$("[149][154][156]",X,1);"[208]RESS KEY FOR OPTION" 1271 FORXX=1TO10:NEXTXX:GETA$:IFA$=""THENPRINT"[145]";:NEXTX:GOTO1268 1276 IFA$="D"THEN1086 1281 IFA$="."ORA$=">"THENFG=1:GOTO1201 1286 IFA$="M"THENCLOSE6:CLOSE7:GOTO136 1291 IFA$="S"THEN1231 1296 IFA$="B"THEN1541 1301 GOTO1271 1306 SYS64738 1311 DC=DC+X:IFDC>0THENSI=SI+1:GOTO1322 1316 CT=CT+1:SI=0:IFCT<40THENRETURN 1321 ZZ=-1:GOTO1056 1322 IFNP>0THENIFSI>75THENZZ=-1:DC=0:CT=0:GOTO1341 1323 IFNP=0THENIFSI>120THENZZ=-1:DC=0:CT=0:GOTO806 1325 IFCT>0ANDCT<17THENBU=BU+1 1326 IFCT<17THENDC=0:CT=0:RETURN 1331 NP=NP+1:IFNP>2THENZZ=-1 1336 DC=0:CT=0:RETURN 1341 DI$="  ** [206][207][210][205][193][204] [208][200][207][206][197] [204][201][206][197]! ** ":FF=1 1343 PRINT"[145][145][145][145][145][145][145][145][145]"DI$:POKEB1,0:POKEB2,32:GOSUB1056:PRINT"[208]RESS ANY KEY TO CONTINUE 1344 [151]198,0:[146]198,1:[151]198,0:[137]651 1351 [139]TY[178]1[167][138]6 1356 [151]53280,0:[129]K[178]1[164]125:[130] 1361 [160]5:[159]5,2,0,[199](6):[151]665,75:[161]#5,A$:BS[178]255:TY[178]1 1366 [160]15:[159]15,8,15:TP$[178]"CLR(null)EW 8 PEEKIT (null)ROTOCOL" 1371 TY$[178]"PSP":[137]136 1376 [153]"(null)AME OF ASCILE TO SEND?":[153]"> ";:[141]1481:[139]I$[178]""[167]1471 1378 [153]"LOADCLR(null)(null)ATN(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000 1381 [153]:T$[178]",P,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1396 1386 FT[178]1:[139]ER[179]20[167]1416 1391 [160]2:[153]"STR$ISK VALRROR!":[137]1471 1396 T$[178]",S,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1411 1401 FT[178]2:[139]ER[179]20[167]1416 1406 [160]2:[153]"STR$ISK VALRROR!":[137]1471 1411 [160]2:[153]"ASCILE (null)YPE VALRROR!":[137]1471 1416 [158]49173:[151]51227,FT:[158]49164:[139][194](512)[179][177]1[167]1421 1418 [160]2:[158]49173:[153]:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471 1421 [158]49173:[151]51224,BS:[158]49158:[160]2:[158]49173:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471 1426 [153]"(null)AVE ATNS > ";:[141]1481:[153]:[139]I$[178]""[167]1471 1428 [153]"LOADCLR(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000 1431 [158]49173:[158]49161:[139][194](512)[178]1[167][158]49173:FF[178]1:[137]1471 1436 T$[178]","[170][202](TY$,[194](51227),1)[170]",W" 1441 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310 1446 [158]49173:[158]49155:[160]2:[151]668,[194](667):[158]49173:FF[178]1 1447 [153]:[153]"CLR STR$(null)(null)VAL ":[137]1471 1451 [139]TY[179][177]1[167]181 1453 [153]" (null)EW PEEKLOCK (null)IZEWAIT > ";:[141]1481:[139]I$[178]""[167]136 1456 BS[178][181]([197](I$)):[139]BS[179]40[167]BS[178]40 1461 [139]BS[177]255[167]BS[178]255 1466 [137]136 1471 [139]FF[178]1[167][141]1056 1476 [158]49173:[158]49167:[137]136 1481 I$[178]"" 1486 [153]" WAITCMD"; 1491 [161]A$:[139]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]1491 1493 [139]A$[178]" "[167][139][195](I$)[178]0[167]1491 1496 [139]A$[178][199](13)[167]1531 1501 [139]A$[178][199](20)[167]1521 1506 [139][195](I$)[177]16[167]1491 1511 [139]([198](A$)[175]127)[179]32[167]1491 1516 [153]A$;:I$[178]I$[170]A$:[137]1486 1521 [139][195](I$)[178]0[167]1491 1526 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]1486 1531 [153]" ":[142] 1536 [153] 1541 [143] BLOCK FREE CHECKER BY JIM BUTTERFIELD 1546 [152]15,"I0" 1551 [159]9,8,0,"$0:"[170]S$ 1556 N$[178][199](0) 1561 [161]#9,A$,A$,A$,A$,A$,A$ 1566 [161]#9,A$:[139]A$[179][177]""[137]1566 1571 [161]#9,A$,A$,A$,B$ 1576 F[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256 1581 [139]S$[179][177]"7%JK"[167][160]9 1586 [160]9:[153]"ON PEEK(null)(null)LEN(null)(null) ASC(null)VALVAL :"F"CMD " 1591 [160]9:[153]:[153][163]8)"ONCLR(null)RESS ANY KEY TO CONTINUE":[151]198,0 1596 [161] A$:[139]A$[178]""[167]1596 1601 [137]1241 7000 [143] GRAPHICS TERMINAL MODE 7005 [153]"LOAD CHR$RAPHICS (null)ERM " 7007 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 7009 [153]"ASCOR LEN(null)PEEKPEEK(null) OR OTHER CHR$RAPHIC PEEKOARDS" 7010 [161]#5,A$:[151]212,0 7015 [139]A$[178]""[167]7050 7017 [139]A$[178][199](13)[176]A$[178][199](141)[167] [153]" "; 7020 [153]A$; 7025 [137]7010 7050 [161]A$:[153]"-";[199](157);:[139]A$[178]""[167]7010 7051 [152]5,A$; 7052 [151]212,0 7053 [139]A$[178]""[167] [137]136 7065 [137]7010 7100 [153]"LOADCLR (null)LEN(null)VALVAL(null) LEN(null)(null)LEN(null) (null)VAL(null)VAL(null) " 7110 [133]"SYS(null)TOP LENLOCK(Y/N) NCMDCMDCMD";SC$ 7120 [139]SC$[178]"Y"[167][158]12[172]4096[170]15[172]256[170]3 7130 [139]SC$[178]"N"[167][141]7145 7140 [137]136 7145 [153]"(null)RESS (null)VAL(null)(null)(null)(null)WAIT (null)O (null)TART LENLOCK" 7150 [133]"ONONONONONONONONONSYSVALNTER (null)IME (HH,MM,SS)";B(2),B(1),B(0) 7160 [129]A[178]0[164]2:[151]251[170]A,B(A):[130] 7170 [158]12[172]4096[170]15[172]256:[142] 8000 [129]J[178]52992[164]53239:[135]X 8010 [151]J,X:CH[178]CH[170]X:[130] 8020 [129]A[178]0[164]2:[151]251[170]A,B(A):[130] 8025 [142] 8030 [131]76,6,207,76,87,207 8040 [131]120,160,2,248,169,0 8050 [131]24,182,251,202,48,4 8060 [131]105,1,144,249,153,251 8070 [131]0,136,16,238,165,253 8080 [131]201,19,144,7,56,233 8090 [131]18,9,128,133,253,216 8100 [131]164,253,166,252,165,251 8110 [131]141,9,220,142,10,220 8120 [131]140,11,220,169,0,141 8130 [131]8,220,173,15,220,41 8140 [131]127,141,15,220,169,100 8150 [131]141,20,3,169,207,141 8160 [131]21,3,169,15,141,250 8170 [131]207,88,96,120,169,49 8180 [131]141,20,3,169,234,141 8190 [131]21,3,88,96,206,250 8200 [131]207,208,103,169,15,141 8210 [131]250,207,173,134,2,160 8220 [131]7,153,32,216,136,16 8230 [131]250,173,11,220,48,8 8240 [131]201,18,208,15,169,0 8250 [131]240,11,41,31,201,18 8260 [131]176,5,120,248,24,105 8270 [131]18,141,253,207,216,88 8280 [131]173,10,220,141,252,207 8290 [131]173,9,220,141,251,207 8300 [131]162,2,160,30,189,251 8310 [131]207,141,249,207,32,211 8320 [131]207,200,200,153,0,4 8330 [131]173,249,207,200,153,0 8340 [131]4,202,16,232,173,8 8350 [131]220,201,5,176,3,169 8360 [131]58,44,169,32,141,37 8370 [131]4,141,34,4,76,49 8380 [131]234,138,72,169,0,141 8390 [131]248,207,173,249,207,162 8400 [131]3,10,46,248,207,202 8410 [131]16,249,173,249,207,41 8420 [131]15,9,48,141,249,207 8430 [131]104,170,173,248,207,9 8440 [131]48,96 9900 I[178]828 9901 [135]A:[139]A[178]256[167]9903 9902 [151]I,A:I[178]I[170]1:[137]9901 9903 [139][194](65440)[178]135[167][151]924,189 9904 [131] 169,1,32,195,255,169,36 9905 [131] 141,240,3,169,48,141,241 9906 [131] 3,169,1,162,8,160,0 9907 [131] 32,186,255,169,2,162,240 9908 [131] 160,3,32,189,255,32,192 9909 [131] 255,169,64,32,144,255,162 9910 [131] 1,32,198,255,32,144,255 9911 [131] 32,207,255,32,207,255,32 9912 [131] 207,255,32,207,255,201,0 9913 [131] 240,58,32,204,255,32,228 9914 [131] 255,201,32,208,3,32,196 9915 [131] 3,162,1,32,198,255,32 9916 [131] 207,255,168,32,207,255,72 9917 [131] 152,170,104,32,205,221,169 9918 [131] 32,32,210,255,32,207,255 9919 [131] 201,0,208,8,169,13,32 9920 [131] 210,255,76,115,3,32,210 9921 [131] 255,76,162,3,169,1,32 9922 [131] 195,255,32,204,255,169,204 9923 [131] 133,178,96,32,228,255,201 9924 [131] 32,208,249,96,256 9999 [142] 10000 [129]X[178]1[164]800:[130]X:[153]"ON ONONONON":[142] 11000 [153]:[153]"PRINT#(null)(null)(null)(null) WAIT(null)(null)(null)(null)1WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)2WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)3WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)4WAITON" 11001 [142]